home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / do1003.zip / TIME.SCR < prev    next >
Text File  |  1991-12-30  |  879b  |  51 lines
  1. * SCRIPT: TIME.SCR -- Implements a digital clock with alarm
  2. .clr
  3. /MATH Bell 0
  4. .re
  5. /BIG DO 2
  6. .go 20 5 ye
  7. C L O C K»#«
  8. :StartClock
  9. /box 1 10 80 19 14 11 " Current Time "
  10. .wi 50 21 80 25
  11. Press "»bo«S»#«"     to set alarm
  12. Press »bo«<esc>»#«   to quit clock
  13. Press »bo«<space>»#« to clear alarm
  14. .wi 8 12 79 19
  15. :time
  16. .go 1 1 cy
  17. /big {time}
  18. .#
  19. /INKEY "" Check
  20. /GOSUB CheckAlarm
  21. /GOTO time
  22. :Check
  23. .wi full
  24. /IF %CHAR EQ S C2
  25. .go 2 20
  26. /SET default {time}
  27. /GETS Atime Default "»ma«Alarm»wh«:»#« "
  28. /MATH Bell 0
  29. /GOTO startclock
  30. :C2
  31. /IF %CHAR NE ~027 END
  32. /IF %CHAR NE " " CA3
  33. /GOTO StartClock
  34. :CheckAlarm
  35. /IF %ATIME NE "" CA2
  36. /IF @time({time}) GE @time(%Atime) CA2
  37. .bell
  38. /inc bell
  39. /IF %bell GT 20 CA2
  40. /CLEAR Atime
  41. :CA2
  42. /RETURN
  43. :CA3
  44. /CLEAR Atime
  45. .go 1 20
  46. "                                    "
  47. /GOTO StartClock
  48. :end
  49. .wi full clr
  50. /ENDEXEC CLEAR
  51.